home *** CD-ROM | disk | FTP | other *** search
/ Aminet 43 / Aminet 43 (2001)(GTI - Schatztruhe)[!][Jun 2001].iso / Aminet / dev / basic / STRPortLib.lha / STRPortLib / Demo / PaddelDemo.asc < prev    next >
Encoding:
Text File  |  2001-03-21  |  540 b   |  20 lines
  1. ; STRPort.obj (c) 1998-2001 by Stephan Richartz
  2. ;
  3. ; Paddel Demo (liefert ohne angeschlossene Potis Zufallswerte)
  4. ;
  5. ; PotGo, ReadPot(AD)
  6.  
  7.  
  8. Format " ###"
  9. Repeat                    ; WARTE...
  10.   PotGo                   ;   startet die 4 Analog-Digital-Wandler
  11.  
  12.   For i=0 To 3            ;   Wandler: 0=Port0X, 1=Port0Y, 2=Port1X, 3=Port1Y
  13.     Print ReadPot(i)      ;   liefert die Werte der Wandler
  14.   Next
  15.  
  16.   Print Chr$(13)          ;   Wagenruecklauf
  17. Until Joyb(0)             ; ...AUF DIE MAUSETASTE
  18. End                       ; und tschuess
  19.  
  20.